home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / ASP / ASPapp Portal / aa_default.asp next >
Encoding:
Text File  |  2002-03-12  |  298 b   |  27 lines
  1. <%
  2. %>
  3. <%
  4.  
  5.  
  6.  
  7.  
  8.  
  9. do_search = request("do_search")
  10. ''' request form keys
  11. ''' request action
  12. action = lcase(request("action"))
  13. ''' action case handler
  14. select case action
  15.  
  16. end select
  17.  
  18. '  no action was specified, so handle the default case(s)
  19.  
  20. %>
  21.  
  22.  
  23.         welcome to the home page
  24.  
  25.  
  26.  
  27.